home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 April / inter@ivo 1997-04.iso / cybint15 / bin / gom2.dxr / 00167_MOVIE.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  903 b   |  49 lines
  1. on startMovie
  2.   openDirutil()
  3.   if xfactoryList("Fileio") = EMPTY then
  4.     openXLib("FileIO")
  5.   end if
  6. end
  7.  
  8. on stopMovie
  9.   if xfactoryList("Fileio") <> EMPTY then
  10.     closeXLib("FileIO")
  11.   end if
  12.   closeDirUtil()
  13. end
  14.  
  15. on openDirutil
  16.   global x
  17.   openXLib("DirUtil")
  18.   set x to DirUtil(mnew)
  19. end
  20.  
  21. on closeDirUtil
  22.   global x
  23.   x(mdispose)
  24.   closeXLib("DirUtil")
  25. end
  26.  
  27. on callwww site
  28.   global x, aFilename
  29.   if voidp(aFilename) then
  30.     alert("Por favor, localize o seu 'browser' de internet (explorer ou netscape)")
  31.     set f to FileIO(mnew, "?read", "exe")
  32.     if objectp(f) then
  33.       set aFilename to f(mFileName)
  34.       f(mdispose)
  35.     end if
  36.   end if
  37.   if not voidp(aFilename) then
  38.     if (aFilename contains "netscape.exe") or (aFilename contains "iexplore.exe") then
  39.       open(site, aFilename)
  40.     else
  41.       clearGlobals()
  42.       go(12)
  43.     end if
  44.   else
  45.     clearGlobals()
  46.     go(12)
  47.   end if
  48. end
  49.